home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
fxlaun
/
threadz.frm
< prev
next >
Wrap
Text File
|
1995-05-08
|
4KB
|
136 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00FFFFFF&
Caption = "F/X Launcher"
ClientHeight = 3135
ClientLeft = 3015
ClientTop = 1785
ClientWidth = 2325
Height = 3540
Icon = THREADZ.FRX:0000
Left = 2955
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3135
ScaleWidth = 2325
Top = 1440
Width = 2445
Begin CommandButton Command4
Caption = "Undelete"
Height = 375
Left = 1200
TabIndex = 6
Top = 2520
Width = 975
End
Begin PictureBox Picture4
BorderStyle = 0 'None
Height = 495
Left = 240
Picture = THREADZ.FRX:0302
ScaleHeight = 495
ScaleWidth = 615
TabIndex = 3
Top = 2400
Width = 615
End
Begin CommandButton Command3
Caption = "Search"
Height = 375
Left = 1200
TabIndex = 5
Top = 1800
Width = 975
End
Begin PictureBox Picture3
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 495
Left = 240
Picture = THREADZ.FRX:05D4
ScaleHeight = 495
ScaleWidth = 615
TabIndex = 2
Top = 1680
Width = 615
End
Begin CommandButton Command2
Caption = "F/X Find"
Height = 375
Left = 1200
TabIndex = 4
Top = 1080
Width = 975
End
Begin PictureBox Picture2
BorderStyle = 0 'None
Height = 495
Left = 240
Picture = THREADZ.FRX:090A
ScaleHeight = 495
ScaleWidth = 615
TabIndex = 1
Top = 960
Width = 615
End
Begin CommandButton Command1
Caption = "F/X File"
Height = 375
Left = 1200
TabIndex = 7
Top = 360
Width = 975
End
Begin PictureBox Picture1
BorderStyle = 0 'None
Height = 495
Left = 240
Picture = THREADZ.FRX:0BA0
ScaleHeight = 495
ScaleWidth = 615
TabIndex = 0
Top = 240
Width = 615
End
End
Sub Command1_Click ()
On Error Resume Next
If Shell("Fxfile.exe", 1) < 32 Then
Msg$ = "Unable To Launch" + Chr$(13) + UCase$("FxFile.exe")
MsgBox Msg$, 16, "ThreadZ"
End If
Form1.WindowState = 1
End Sub
Sub Command2_Click ()
On Error Resume Next
If Shell("Fxfind.exe", 1) < 32 Then
Msg$ = "Unable To Launch" + Chr$(13) + UCase$("FxFind.exe")
MsgBox Msg$, 16, "ThreadZ"
End If
Form1.WindowState = 1
End Sub
Sub Command3_Click ()
On Error Resume Next
If Shell("Fxsearch.exe", 1) < 32 Then
Msg$ = "Unable To Launch" + Chr$(13) + UCase$("Fxsearch.exe")
MsgBox Msg$, 16, "ThreadZ"
End If
Form1.WindowState = 1
End Sub
Sub Command4_Click ()
On Error Resume Next
If Shell("Fxundel.exe", 1) < 32 Then
Msg$ = "Unable To Launch" + Chr$(13) + UCase$("Fxundel.exe")
MsgBox Msg$, 16, "ThreadZ"
End If
Form1.WindowState = 1
End Sub